home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
comm
/
dlscr.zip
/
XKCISDL.T
< prev
Wrap
Text File
|
1987-11-10
|
851b
|
28 lines
:: This script downloads a file after it is listed by the
:: Compuserve SIG "bro" command with XMODEM OverThruster.
:: Enable this with:
:: set f8 "@source xkcisdl.t"
:: Then "bro" and at each SIG download prompt, F3 grabs the file.
:: Note - to "clean up" the display change the "pat 1i" to "pat 1"
:: and likewise the line below it, by delaying YAM's responses.
::
if !h^\[ echo "Can't find Project Programmer Number"; return
ss yf "^[^ /]+"
setc s0 "\L%z0"
if f%s0 echo "%s0 Exists: No Action taken."; return
echo "File name is %s0"
split y " " " " " "
put "\025dow %s0/proto:xmodem\r"
pat 1i "Protocol Menu"
pat 2 "complete."
wait -f20
if 1 put "\0251\r"; wait -f20 : tell them XMODEM
if !2 return
estimate %z2
ro "%s0"
pat; pat 1 "["
put "\025"
while !1 put "\r" wait -f5
pat
return